Inference at * 
Iof proof for Lemma squash elim:


  P:. SqStable(P)  ((P)  P) 

latex

 by ((Unfold `sq_stable` 0) 
CollapseTHEN ((Auto_aux (first_nat 1:n) ((first_nat 1:n),(first_nat 
C3:n)) (first_tok :t) inil_term))) 

latex

C1: 

C1: 1. P : 
C1: 2. (P)  P
C1: 3. P
C1:   P
C2: 

C2: 1. P : 
C2: 2. (P)  P
C2: 3. P
C2:   P
C.

Definitions	t  T, P  Q, P  Q, P  Q, SqStable(P), P  Q, , x:A. B(x)
Lemmas	squash wf